YES 1.573
↳ HASKELL
↳ LR
((range :: (Ordering,Ordering) -> [Ordering]) :: (Ordering,Ordering) -> [Ordering]) |
import qualified Prelude |
\z→if y >= z && z >= x then z : [] else []
range0 y x z = if y >= z && z >= x then z : [] else []
↳ HASKELL
↳ LR
↳ HASKELL
↳ IFR
((range :: (Ordering,Ordering) -> [Ordering]) :: (Ordering,Ordering) -> [Ordering]) |
import qualified Prelude |
if y >= z && z >= x then z : [] else []
range00 z True = z : [] range00 z False = []
↳ HASKELL
↳ LR
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
((range :: (Ordering,Ordering) -> [Ordering]) :: (Ordering,Ordering) -> [Ordering]) |
import qualified Prelude |
↳ HASKELL
↳ LR
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((range :: (Ordering,Ordering) -> [Ordering]) :: (Ordering,Ordering) -> [Ordering]) |
import qualified Prelude |
compare x y
| x == y
= EQ | x <= y
= LT | otherwise
= GT
compare x y = compare3 x y
compare2 x y True = EQ compare2 x y False = compare1 x y (x <= y)
compare1 x y True = LT compare1 x y False = compare0 x y otherwise
compare0 x y True = GT
compare3 x y = compare2 x y (x == y)
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ LR
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(range :: (Ordering,Ordering) -> [Ordering]) |
import qualified Prelude |